home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / hderactx / hider.cab / HIDERS~1.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-11-03  |  4.9 KB  |  165 lines
  1. VERSION 5.00
  2. Object = "{BCB28BD5-6F6A-11D2-BBA4-444553540000}#1.0#0"; "HIDER.OCX"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Hider control sample application"
  5.    ClientHeight    =   4815
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   4950
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   4815
  11.    ScaleWidth      =   4950
  12.    StartUpPosition =   2  'CenterScreen
  13.    Begin VB.CommandButton Command6 
  14.       Caption         =   "AutoRun Service"
  15.       Height          =   255
  16.       Left            =   3000
  17.       TabIndex        =   6
  18.       Top             =   4440
  19.       Width           =   1575
  20.    End
  21.    Begin VB.CommandButton Command5 
  22.       Caption         =   "AutoRun Once"
  23.       Height          =   255
  24.       Left            =   3000
  25.       TabIndex        =   5
  26.       Top             =   4080
  27.       Width           =   1575
  28.    End
  29.    Begin VB.CommandButton Command3 
  30.       Caption         =   "Autorun"
  31.       Height          =   255
  32.       Left            =   3000
  33.       TabIndex        =   4
  34.       Top             =   3720
  35.       Width           =   1575
  36.    End
  37.    Begin VB.CommandButton Command2 
  38.       Caption         =   "None"
  39.       Height          =   255
  40.       Left            =   3000
  41.       TabIndex        =   3
  42.       Top             =   3360
  43.       Width           =   1575
  44.    End
  45.    Begin VB.CommandButton Command1 
  46.       Caption         =   "View current status"
  47.       Height          =   495
  48.       Left            =   240
  49.       TabIndex        =   2
  50.       Top             =   3600
  51.       Width           =   2415
  52.    End
  53.    Begin VB.CommandButton Command4 
  54.       Caption         =   "Go !"
  55.       BeginProperty Font 
  56.          Name            =   "Arial Black"
  57.          Size            =   15.75
  58.          Charset         =   204
  59.          Weight          =   400
  60.          Underline       =   0   'False
  61.          Italic          =   0   'False
  62.          Strikethrough   =   0   'False
  63.       EndProperty
  64.       Height          =   735
  65.       Left            =   1680
  66.       TabIndex        =   0
  67.       Top             =   960
  68.       Width           =   1695
  69.    End
  70.    Begin VB.Timer Timer1 
  71.       Enabled         =   0   'False
  72.       Interval        =   10000
  73.       Left            =   960
  74.       Top             =   1800
  75.    End
  76.    Begin VB.Label Label3 
  77.       Alignment       =   2  'Center
  78.       Caption         =   "Set AutoRun status"
  79.       BeginProperty Font 
  80.          Name            =   "MS Sans Serif"
  81.          Size            =   8.25
  82.          Charset         =   204
  83.          Weight          =   700
  84.          Underline       =   0   'False
  85.          Italic          =   0   'False
  86.          Strikethrough   =   0   'False
  87.       EndProperty
  88.       Height          =   255
  89.       Left            =   2640
  90.       TabIndex        =   8
  91.       Top             =   3000
  92.       Width           =   2175
  93.    End
  94.    Begin VB.Label Label2 
  95.       Alignment       =   2  'Center
  96.       Caption         =   "AutoRun feature"
  97.       BeginProperty Font 
  98.          Name            =   "MS Sans Serif"
  99.          Size            =   9.75
  100.          Charset         =   204
  101.          Weight          =   700
  102.          Underline       =   0   'False
  103.          Italic          =   0   'False
  104.          Strikethrough   =   0   'False
  105.       EndProperty
  106.       Height          =   255
  107.       Left            =   120
  108.       TabIndex        =   7
  109.       Top             =   2520
  110.       Width           =   4695
  111.    End
  112.    Begin VB.Line Line1 
  113.       BorderWidth     =   2
  114.       X1              =   0
  115.       X2              =   4920
  116.       Y1              =   2400
  117.       Y2              =   2400
  118.    End
  119.    Begin VB.Label Label1 
  120.       Caption         =   $"hiderSample.frx":0000
  121.       Height          =   615
  122.       Left            =   120
  123.       TabIndex        =   1
  124.       Top             =   120
  125.       Width           =   4695
  126.    End
  127.    Begin HIDERLibCtl.Hider Hider1 
  128.       Left            =   1560
  129.       OleObjectBlob   =   "hiderSample.frx":00CC
  130.       Top             =   1800
  131.    End
  132. Attribute VB_Name = "Form1"
  133. Attribute VB_GlobalNameSpace = False
  134. Attribute VB_Creatable = False
  135. Attribute VB_PredeclaredId = True
  136. Attribute VB_Exposed = False
  137. Private Sub Command1_Click()
  138. Dim state As AutoRunConstants
  139. state = Hider1.AutoRun
  140. If state = AutoRunNone Then MsgBox ("AutoRunNone")
  141. If state = AutoRun Then MsgBox ("AutoRun")
  142. If state = AutoRunOnce Then MsgBox ("AutoRunOnce")
  143. If state = AutoRunService Then MsgBox ("AutoRunService")
  144. End Sub
  145. Private Sub Command2_Click()
  146. Hider1.AutoRun = AutoRunNone
  147. End Sub
  148. Private Sub Command3_Click()
  149. Hider1.AutoRun = AutoRun
  150. End Sub
  151. Private Sub Command4_Click()
  152. Timer1.Enabled = True
  153. Hider1.AppVisible = False
  154. End Sub
  155. Private Sub Command5_Click()
  156. Hider1.AutoRun = AutoRunOnce
  157. End Sub
  158. Private Sub Command6_Click()
  159. Hider1.AutoRun = AutoRunService
  160. End Sub
  161. Private Sub Timer1_Timer()
  162. Timer1.Enabled = False
  163. Hider1.AppVisible = True
  164. End Sub
  165.